﻿Public Class RreporteGerencial
    Public Shared Function ObtenerDatosReporteGerencial(ByVal descEmpresa As String, ByVal FechaInicio As String, ByVal FechaFinal As String, ByVal idProyecto As Int32, ByVal idEtapa As Int32) As List(Of EReporteGerencial)
        Dim reportegerencial As List(Of EReporteGerencial) = Nothing

        Dim options As New TransactionOptions
        options.IsolationLevel = Transactions.IsolationLevel.ReadCommitted
        options.Timeout = New TimeSpan(0, 2, 0)

        Using scope As New TransactionScope(TransactionScopeOption.Required, options)
            Try
                reportegerencial = DreporteGerencial.ObtenerDatosReporteGerencial(descEmpresa, FechaInicio, FechaFinal, idProyecto, idEtapa)
                If reportegerencial Is Nothing Then reportegerencial = New List(Of EReporteGerencial)
                scope.Complete()
            Catch ex As Exception
                Throw
            End Try
        End Using

        Return reportegerencial
    End Function
End Class
